WAUG HEADER BYTES 
by Michael &. Seavey 


Qur March 1983 meeting was held at the Waterloo 
Recreation Center. The meeting room was large enough and 
our hardware volunteers really came thru ' We had an Atari 
system in each corner of the room. The several 2 drive 
systens eased our library efforts, and we had the chance 
to see Atari color graphics on a AMDEX color monitor. 

Mitch Haas demonstrated several graphics progras 
from COMPUTES FIRST and SECOND BOOKs of ATARI]. Some disk 
drive problems occurred, so J urge those who have not seen 
Mitch’s demo to contact him or check ovt our Vibrary 
copies. He has made considerable modifications and 
additions to the book programs. To make the best use of 
these programs you will want to purchase the COMPUTE 
books. Also contact Mitch, 1185 Grove Terrace, Dubuque 
lows 52081, phone (319) 582-1944, to join the Graphics and 
Gaming Utilities S16. 

Ed Fietcher scheduled the first Forth S16 meeting on 
April 8, 7:G6PH at his hone, 

The ANALOG f@ disk arrived and was available for 
checkout to ANALOG subscribers, 

Several mew additions to the WAUG library were turned 
in, including member typed in and member written programs. 
To avoid duplication you should contact our WAUG 
librarian before you type in any magazine or book 
programs. Yo avoid fustration you should purchase the 
magazines and books with the programs you use. A program 
without docusentation is like a bank account without 
money, aot much good for anything. 

We had a short business meeting with the following 
results, 

1) We agreed to arrange for use of the Waterloo 
Recreation Center for a one year period. 

2) We agreed on a second group bulk disk purchase. 

3) Hardware volunteers were obtained for our April 
meeting. 

4) Gur Apcil meeting main program was left open, but 
may include the jong awaited Fletcher VISICALD Tax 
demonstration. 

Dur April 1983 meeting will be held 2:86 PM, Sunday 
the 24th at the Waterloo Recreation Center, 225 Cedar 
Street, daentown West Waterloo. Harware volunteers should 
try to arrive early to allow time for setup. We asked 
that everyone pitch in an help us setup so we can get 
going by 2:18 or so. 

An appeal was made to all who have not yet turned 
in their membership surveys to get them to Eric Radius as 
soon as possible. 


BILL WILKINSON ON ATARI BENCHMARKING 


In the last two months WAUG newsletters xe 
benchmarked the Atari 868, using a Sieve of Eratosthenes 
prooram to find all Prime numbers between 3 and 14,381. We 
measured the time to find the primes ten times. The Atari 
hardware registers were used for timing, avoiding the need 
for a stopwatch. 

Bill called to verify that the times given in WAUG 
were with the screen blanked by shutting down Antic’s 
direct memory access. (This was the case.) He then 
provided a wealth of information some of which will be 
written up in cur newsletter once I find my notes. 

Mr. Wilkinson has generated quite 2a few Atari 
benchmark times in several languages, and may be 
publishing a BYTE or COMPUTE article on the subject in the 
near future. A language called ACTION, currently under — 
development by Optimized Systems Software, was quoted to 
have the fastest times. ACTION is said te be similar to C 
and PASCAL. ATARI cauputers are amazing pieces of 
hardware. Its nice to Know there are software wizards 
around who strive to place equaliy amazing programming 
power and speed in the hands of Atari owners, 


FORTH Special Interest Group 


Gn § April the FORTH SIG held its first meeting. — 
On hand were 3 versions of FORTH, including APX 
FORTH, ValFORTH, and FIG-FORTH from Sofisice magazine, 
and four people who didn’t Know much about any 

of them. We managed te boot al) three, and run 

the player-missile demo fram the Softside disk. 

It doesn’? do much - just lets you move a glayer 
around the screen with the joystick - but the 

speed and smoothness you can do it with are far 
beyond what’s achievable from BASIC. For ae, 

a lot of the fun of owning a home computer is 

the chance to learn and apply what I learn to 

make the computer do what I want it ¢o do. There’s 
a lot of satistaction in writing even a simple 
prograe in a lanquage that’s new and different. 
FORTH is not as easily learned as BASIC. In some 
ways, Knowing BASIC makes it harder to learn FORTH. 
You look for similarities that don’? really exist. 
But FORTH has an elegance about it that puts BASIC 
to shawe. Leo Brodie, in “Starting PORTH’, says 
“programing in FORTH is more of an art than prooramming 
in any other language.” With a little effort 

just about anyone can learn to write a program 

in FORTH, With a great deal more effort you can 
learn to write a FORTH program that is as simple, 
as understandable, and as quick of execution as 


Both Eric and 1 had phone conversations 
Wilkinson of Optimized System Software regarding 
benchmarking of various ATAR] computer languages 
lines of the September 1981 and January 1983 
BYTE magazine. 


with Bil} 
the speed 
alang the 
issues of 


possible. Therein lies the challenge, and the 
fun. 

FIG-FORTH is available in the club library. Try 
it, you might Tike it. We'll be having another 
S16 meeting next month. 
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AN ATARI KSR33 DRIVER PROGRAM 
by Michael R. Seavey - WAUS 


1 purchasd a MEDELCO KSR33 Teletype at the recent 
Electronics Flee Market at the Waterloo airport. its a 
stern Union model 33 which has been reconditioned or 
modified in some way by Medelco, whoever they are. lf 
this teletype can be properly interfaced te an Atari ane, 
it would make a slow (iGcps), all uppercase, noisy 
printer. Still, not bad for only $50.80. Well it isn’t 
working right yet, but debugging it has lead to the 
following program which may be of use to some other poor 
Atari owner struggling with 28ma current joop interfacing. 
5 REM MEDELCO.LST 
10 REM MEDELCO ESR DRIVER 
30 REM MICHAEL R. SEAVEY 


40 REM WATERLOO ATARI USERS GROUP _ : seer ae 


45 REM AID TO FIND CORRECT SETTINGS 
$8 REM GUTPUT ONLY AT THIS TIME 
55 REM CHANGE LINES 31@ & 328 ON 
56 REM Zien CURRENT LOOP & ATARI 8Se 
57 REN SEE 838 MANUAL AND/OR BOOK 
5B REM °YOUR ATARI] CONPUTER® 
59 REM 
68 DIM INSC4Q) 
(65 X10 34,82,3,8,°R4:":REM SETS XMT TO SPACE: KEEPS KSR 
SILENT WHEN NOT PRINTING. 
70 GRAPHICS O:LIST 18,59:? °PUSH RETURN 10 BEGIN" :INPUT INS 
75 READ TRIALS 
89 FOR I=1 TO TRIALS 
98 READ STOP WORD, OPAR 
180 CLOSE #2 
105 X10 34,82, ,6,°R4s" | 
118 X10 36,82, STOPsWORDSBAUD,9,"R4:" 
128 X10 38,82, FEEDSTRANSOPAR,@ "Ras" 
13@ OPEN #2,8,9,"R4:° 
148 ? #2;"TESTING DATA LINE *;1310+328 
158 ? "TESTING DATA LINE *:1818+328 
278 NEXT 1 | 
298 CLOSE #2 
318 DATA 4 
326 REN XMT STOP WORD ,BUAD, FEED, TRAN, OPAR 
396 DATA 3,128,0,5,64,0,2 
340 DATA 2,128,6,5,44,8,2 
250 DATA 3,128,8,5,64,6,3 
368 DATA 2,128,8,5,44,8,3 


Color Register Animation JOQHN MN. CORLEY 


Unlike other home computers, when you specify 

a plot or drawto color on the Atari you’re specifying 
a location that contains the color, not the color 
itself. On the Appie, for instance, i4 you draw 
something in red it’s red for qood (wore or less). 

Gn the Atari, you can change the color displayed 

by changing the value in the color register, 

This may not sound too important, but it adds 

a lot of versatility. You can do things on the 
Atari easily thet are very difficult, if not impossible, 
on other computers. As an example, by drasing 

the same figure several times, using @ different 
color register each time, and then rotating the 
values in the color registers, you can achieve — 

an illusion of motion. 

Listing ? is a simple program that illustrates 

this technique. It draws a pattern of lines 

using the color registers in sequence for consecutive 
lines. When white and the background color are 
rotated through the registers the lines appear 

to fall toward the bottom of the screen. 

With a Little imagination this technique could 

be applied to achieve some really remarable effects 
in your prograns. 


10 GRAPHICS 7416:0E6 
20 SETCOLOR 9,8,{9:SETCOLOR {,4,0:SETCOLOR 2,4,0:SETCOL 
OR 4,4,0 

38 COLR=1 

48 FOR ANG=98 TO 8 STEP -2 

58 COLOR COLR 

48 PLOT S8#COSCANG) ,98-588SINCANG) 

78 DRAUTO 9@sCOSCANG) , 98-7049 INCANG) 

Bb COLR=COLRE1s1F COLR=4 THEN COLR=! 

98 NEXT ANG 

108 FOR xeG 19-2 

11@ SETCOLON X,8,16 

128 FOR Ye@ 70 SB:NEXT Y 

12@ SETCOLOR X,4,0 

140 NEXT X 

158 GOTO 196 


Extended Directory pas 


320806 N@=<@ :Ni=i sNZ2=Ni+Ni iNS=N2+NI1 IN4=N24N2 :NS=N44N1 ING6=N44+N2 SNG=N64N2 INI G=N64N42 


NS@=2N164#N3 :CR=155 sFL=N1G*#N3-1 


At yee: : = eOVeNe:sGO0TO 32665 
32601 DIM Fé#C(N3S@> .NSCNS@> ,CMDSC 15) , PFNSé¢ 6G %FL > ce 
32666 TRAP 32811:INPUT @NisFG:sIF LENCFS)<FL THEN N=EN-Ni:? #DV; 


FREE SECTORS" :GOTO 32611 
S268 PRINT #DVEN: ">" sNS 


" sFSCNI NSD 3" 


32623 N#2FNSCFNSFLING , FNXFL4+ 26) sNSCLENCN@O4N1 32°. ° oS CLENCNS) +Ni O=FNGCFNSFL+ 27, F 


N#FL+FL 


32624 IF N€(26,24)=" " THEN NS=NSCN1 , 24> 
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FORTH COLUMN 


(Editor’s Mote! ith Forth becoming 2 Very 
Popu.ar language for the ATARI and now that we have it 
in our disk library I hope that many of you already 
familiar with the lanquage will take time to write for 
this column. Until ther, here are some srticles to get 
you started!) 


(Raprinted from Current Notes Noveaber, 19923 


Forth: Aan Tmtroducticon 
by Ror Stein; PaAeCsE 
(August issue of KEEPING PACE, newsletter of 
Pittsburgh Atari Computer Enthusiasts.) 


Wat is Forth, you may ask? Forth started cut 
aS 3 programming language, but due to its uniqueness it 
has Decome more than just another language, Forth was 
created abovth 12 years ago o4 Charles Moore, znd is 
continually gsining popularity, alaost 3 evlt 
following, 

Forth is a totally self-sufficient Prograanirr 
language ot tool, Mast versions contain the standers 
definitions (commands), an Editor, Assembler, and sone 
special utility packages. There is no need for a DUS 
because Forth also handles all disk L/0, Not bad, for 
the price of one language, Speaking of prices, APY has 
&@ very good version for $40, 

A command in Forth is called 2 word, and words 
make wp the Forth dictionary. The dictionary contains 
every word available in a particular version, Heres 
where Forth really shows: its uniqueness — the 
dictionary is in mo waz limited te just the words thet 
are in the original copy, You can define (compile) new 
words into the dictionary st will. This mesns thet if 
your particular version doesn’t have some cosmands that 
you'd like to have, vou just creste then, defining then 
in terms of already defined words, You can then create 
a bootable version containing sour own words that will 
be present in the dictionary vhen that version is 
Coated up. This means that vou can create s veriety of 
Forth’s to suit different applications, 


The Forth Editor and Forth proorammes are dealt 
with in data blocks called "Sereens." 4 programme is 
made entirely of Forth words and may occupy from one to 
several screens. The manipulation of the screens 
oatueen Fortn’s ow: ourfsrs, aonitor screen, disk, and 
printer can oe carried aut simply by executing one or 
two words, Assesdbly larqusoe routines can be created 
and given 2 defining word like any other dictionary 
entry, except that calling that word will cause the 
executing of a machine code sequent. No actual 
assenply or locating (or even relacating) need he done, 
Forth handles it all. 

Forth is also quite fast and sesory efficient, 
Mast versions will run with idk af RAM. There are, 
Nowever, 2 few drawbacks, in that there are same 
peculiar (at laast at first) conventions which aust be 
schered to, and the syntax can appear quite cryptic, 


(Here’s an article for these of ycu who are 3 
little wore fsiliar with Forth than the rest of us, 
It’s still from Current Notes, Nov. 82. He's speaking 
of the ValForth packsge he recently purchasad) 


My First Utitily 
oY Jonna Caapin, Nevatari 


after I nad set up the systes and played ground 
with it for a while, I found to ay dismay that there 
was mo disk directory fumetion! On any ValFORTH disk 
you buy, they folllow the - convention of listing a 


"Table af Contents” in Screen 170 ( 3 FORTH Screen is 4 
sectors), However, this just tells you the load points 
for the different programmes (or vocabularies, for 
FORTH purists) cortzinad on the disk, Unfortuns../4 
Lois information only vemains consistent with the rest 
of the disk until you write something else, at which 
point you aither need to update this manually, or to 
try to remember where you put your program (ever tre to 
do that?), The programme below is 3 directory progras 
that T wrote to deal with this prables, What askes ay 
programme feasible is thet the YsiFORTH pecole also 
followed the convention of describing the contents of 
each screen on the first line of that screen. What ay 
programme does, given 3 range of screens, is to list 
the first line of eacn screen with its number, To run 
the programme, type #1 42 O1R, where #1 is the first 
scraen to list, and #2 is tha last one, You could alsa 
modify the DIR programe to take ( STARTCOUNT > for ite 
parameters Oy replacing the i+SNAP on line 4 of screer 
175 with 0+, 


ser # 174 | 
0 ( Disk Dir} BSAV , PRES» SGET, LINT? 
i 
2 $ BSAV BASE @ “ROT 3 
3 (NN—-BNWAN) 
4 
3 3 BRESTO BASE! 3 
5 (B—} 
7 
8: SCRNGET 4% BLOCK ; 
3 ( § -~ ADDR } 
ip 
thE LINVYPE 22 TIPE | 
‘s ( ADDR -- } 
13 
14 
1S —e 


fr 
o~ wd 


$ 179 
Disk Directory: DIR ) 
: DIR ( START END -- } 
RSAVE DECIMAL 
i+ SWAP 
Oc 
I SCRNGET pg 3 


cm - GS rsa ee oe UD 
Ld 


or~ 


? CR | 
8 3 +R: 
a SPACE LINTYPE 
16 EXIT 
li LOUP 
12 BRESTO 
13 CR 
oo 
iS 


{Reprinted from The WO Connector, the 
newsletter of the San Diego Atari Computer Enthusiasts 
Feb., $3) 


Ror Miller’si FORTH AVENUE 


Glinking Cursor in FORTH 


The Atari operating system contains some 
countdown timers which are decremented 40 tinas 3 
second «during video vertical blank. When sry timer 
hits zero, an interupt is generated and an interupt 
service rovtine is executed. I am using ane of these 
timers to periodically change the Atari cursor control 
register from normal video to inverse video ard back, 
This is a FORTH version of a rovtine published in 
COMPUTE', December, 1991. The routine was called 
"Blinking Characters” by Frerk Jones. 

‘The «following FORTH code defines four FORTH 
words, BLINK is the interrupt service routine which 
tiinks the cursor smd presets the countdown tiner. 
START 2K losis the timer the first time which starts 
the blirking. INTT.ELTM storas the PFA of BLIHK (the 
TSR) into the ISR vector (2283 hex}, ER is just = nica 
short, commend to avecute everything, 

Cree EC is axecutad, the Atari cursor will blink 
without any interference to the main program, which is 
the case in FORTH. Note that SLTNK does not contain the 
wend “HEXT UMP," to return te PORTH, This is hace ssa 


a 


BLINK is never executed by FORTN, If is executed bo the. 
Atari operating system during vertical plank, 


( BLINK CURSOR ROUTINES 3 
HEX 

CODE BLINK ( -—- } 

O2F3 LDA, ( CUR CNTL REGS 
2¢AND, ( MASK BIT 2? 
2$E0R, (FLIP BIT 2 
02F3 STA,  ( CUR CNTL REG 
IS $LDA, ( 1/2 SEC BLINK 
021A STA,  ( TIMER REGSTR 


a a ee A Oe i Ped 


( BLINK FLIPS CURSOR VIDEO ) 
( AND RELOADS COUNT DOUN  ) 
( TIMER WITH 21/S0TH SECS) 


DECIMAL 
( BLINK CURSOR SCR 2) 

HEX 

CODE START BLINK 

{5 #LOA, (LOAD TIMER =) 
021A STA, «= (IST TIME) 
NEXT UMP, 


| + INIT.GLINK = ( INSTALL ISR >) 


‘ BLINK Zio ! ; 


( BC WILL START SLINKING 3 
( CURSOR. STACK NOT USED 3} 
toe § oe) 

INIT LINK START.BLINK ; 


Extended Directory D065 UJOQHN M. CORLEY 


The February/March issue of Antic contained a revision | 
to Atari DOS that permits 24 character file names with 
a three character extender. This allows for much more 
discriptive names, and saves sitting looking at a disk 
directory and wondering what that progr as with the 
strange 8 character abbreviation really is, anyway. 
The new DOS is available in the club library, along 
with a program from the same article that converts 
directory entries to the new format. It’s awkward 

to use. You have to format a disk with the new bas, 
then beot up with Atari 00S and copy files onto the 
new disk one at a time. When you’re finished you aust 


un the directory convertor program to change the file 


names on the disk to the new format. 

If you use Menuplus from Softside magazine you'll need 

to make a few changes to make it work. Listing 1 contains 
the lines that must be changed. 


The following subroutine will prevent the BREAK 
key from stopping @ program in progress, Hitting 
SYSTEM RESET, entering 3 new Graphics mode, writing to 
3 disk drive or writing to .a printer will void this 
TOUTING » 


if X = PEEK(14) 

20 TF PEEK(LS)<128 THEN 50 
eit FoF KE 15,a-128 

49 POHE $3774,%~129 


Loss 


REN @8% Msin program starts nere wax 
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PEEKS AND POKES 


by 
Bob Federer 


‘Using PEEKS and POKES is just as easy 36 using 
. paguisr BASIC statements, once you get used to using 
them. But why use PEEKS and POKES? They’ll speed i 
the execution tine of your BASIC program. To generate 
@ random number between 1 and 9°, you could write X = 
PAT(RAD(3)"10), It’s just as easy, tut faster, to 
weite X = INT(PEEK(39770)"10/756) 


The following subroutine blackens the screen 
from tap to bottom, 


10 GRAPHICS 24 

20 START = PEEK(S40)+254eF€EK (541) 

30 POKE START+3,79 

$0 FOR Z = START+4 TO START+204 

oO IF PEEK(Z) = 15 THEN FOKE 7,14 

60 IF PEEK(Z} = 79 THEN POKE 7,78! 7 = 7+? 
70 NEXT Z 


I? gou want to print 3 word vertically on the 
screen, you could position the cursor for each letter 
and ‘then print each letter individualls, but that’s coo 
much work, Location 62 end §3 in aemory hold the 
values for the left margin and right sarain 
respectively. Try this: 


10: GRAPHICS 0 

20 POKE 92,10 POKE 93,10! POSITION 10,3 
30_PRINT "VERTICAL" 

40 POKE 82,2! POKE 83,39 

30 PRINT “HORTZONTAL" 
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PEOPLES nue Vale. HARDWARE 


320 LAPORTE ROAD WATERLOO, IOWA 50702 


y 1 


Original CAVERNS OF MARS cassette and documentation. 
Contact Steve Hansen, phone 232-9500. 
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